home *** CD-ROM | disk | FTP | other *** search
/ Click Press Kit / Click Press Kit.iso / pc / main.dxr / Internal_62_ExitFrameCode.ls < prev    next >
Encoding:
Text File  |  2006-05-31  |  420 b   |  20 lines
  1. global gTracker, gRecordSet
  2.  
  3. on enterFrame me
  4.   sendAllSprites(#mSetUpGraphics)
  5. end
  6.  
  7. on exitFrame me
  8.   cursor(-1)
  9.   gTracker.pGeneralList.endDateTime = the date & " " & the long time
  10.   if gTracker.p12345 = EMPTY then
  11.     gTracker.mNoInterNetConnection()
  12.   else
  13.     gRecordSet.mProcessCurrentRecordSet()
  14.   end if
  15.   vList = [22, 23, 24]
  16.   repeat with x = 1 to vList.count
  17.     sprite(vList[x]).visible = 1
  18.   end repeat
  19. end
  20.